/* GUI CONVERTED from eciq02.p (converter v1.75) Mon Aug 14 12:26:45 2000 */
/* eciq02.p - ECN ITEM INQUIRY                                          */
/* Copyright 1986-2002 QAD Inc., Carpinteria, CA, USA.                  */
/* All rights reserved worldwide.  This is an unpublished work.         */
/* web convert eciq02.p (converter v1.00) Mon Oct 06 14:21:50 1997 */
/* web tag in eciq02.p (converter v1.00) Mon Oct 06 14:18:04 1997 */
/*F0PN*/ /*K0M5*/ /*                                                    */
/*V8:ConvertMode=Report                                        */
/* REVISION: 7.4      LAST MODIFIED: 10/11/93   BY: pma *H013*          */
/* REVISION: 7.4      LAST MODIFIED: 10/13/95   BY: ame *H0GF*          */
/* REVISION: 8.6      LAST MODIFIED: 06/20/96   BY: Mariya Kutwal *K00C**/
/* REVISION: 8.6      LAST MODIFIED: 10/07/97   BY: mzv *K0M5*          */

/* REVISION: 8.6E     LAST MODIFIED: 02/23/98   BY: *L007* A. Rahane */
/* REVISION: 8.6E     LAST MODIFIED: 05/29/98   BY: *K1R7* A. Shobha */
/* REVISION: 8.6E     LAST MODIFIED: 10/04/98   BY: *J314* Alfred Tan   */
/* REVISION: 9.1      LAST MODIFIED: 03/24/00 BY: *N08T* Annasaheb Rahane */
/* REVISION: 9.1      LAST MODIFIED: 08/14/00 BY: *N0KW* Jacolyn Neder    */

/*GUI preprocessor directive settings */
&SCOPED-DEFINE PP_GUI_CONVERT_MODE REPORT

/*H0GF*/ {mfdeclre.i}
{gplabel.i} /* EXTERNAL LABEL INCLUDE */

/* ********** Begin Translatable Strings Definitions ********* */

&SCOPED-DEFINE eciq02_p_1 "Comments"
/* MaxLen: Comment: */

/* ********** End Translatable Strings Definitions ********* */

/*K1R7 /*K0M5*/ {wbrp02.i} */

     {ecmtparm.i}
     define variable ecdcmmts like mfc_logical initial no label {&eciq02_p_1}.
     define variable true1 like mfc_logical initial yes.
     define variable false1 like mfc_logical initial no.

/*H0GF*/ /*{mfdeclre.i}*/

     /* DISPLAY SELECTION FORM */
     FORM /*GUI*/ 
        {ecform04.i}
     with STREAM-IO /*GUI*/  frame form04 side-labels width 80 attr-space.

     /* SET EXTERNAL LABELS */
     setFrameLabels(frame form04:handle).
     FORM /*GUI*/ 
        {ecform05.i}
     with STREAM-IO /*GUI*/  frame form05 side-labels width 80 attr-space.

     /* SET EXTERNAL LABELS */
     setFrameLabels(frame form05:handle).

     find ecm_mstr where recid(ecm_mstr) = ecm_recid no-lock no-error.
     if not available (ecm_mstr) then return.

     if can-find (first ecd_det where ecd_nbr = ecm_nbr) then page.

     for each ecd_det where ecd_nbr = ecm_nbr no-lock with frame form04:
         find pt_mstr no-lock where pt_part = ecd_part
/*K00C*/ no-error.

         display
           {ecform04.i}
         with frame form04 STREAM-IO /*GUI*/ .
         display
        ecd__qad01
        true1 when (ecd_cmtindx <> 0) @ ecdcmmts
        false1 when (ecd_cmtindx = 0) @ ecdcmmts
        ecd_prodline
        ecd_part_type
        ecd_draw
        pt_add
    /*K00C*/ when (available pt_mstr)
        ecd_status
        ecd_drwg_loc
        ecd_drwg_size
        ecd_dsgn_grp
        ecd_group
        ecd_inv_dspn
        pt_rev
    /*K00C*/ when (available pt_mstr)
        ecd_old_rev
        ecd_new_rev
        max(pt_rev, pt_ecn_rev)
    /*K00C*/ when (available pt_mstr)
           @ ecd_old_rev
         with frame form05 STREAM-IO /*GUI*/ .
         down.
         if ecd_cmtindx <> 0 then do:
        for each cmt_det no-lock where cmt_indx = ecd_cmtindx
        with frame ecdb attr-space side-labels width 80 overlay:
           FORM /*GUI*/  cmt_seq skip
            cmt_cmmt[1] no-label
            cmt_cmmt[2] no-label
            cmt_cmmt[3] no-label
            cmt_cmmt[4] no-label
            cmt_cmmt[5] no-label
            cmt_cmmt[6] no-label
            cmt_cmmt[7] no-label
            cmt_cmmt[8] no-label
           with STREAM-IO /*GUI*/  frame ecdb width 80 attr-space.

           /* SET EXTERNAL LABELS */
           setFrameLabels(frame ecdb:handle).
           display cmt_seq + 1 @ cmt_seq
           cmt_cmmt[1 for 8] no-label with frame ecdb STREAM-IO /*GUI*/ .
           down.

           if cmt_cmmt[9] + cmt_cmmt[10] + cmt_cmmt[11] + cmt_cmmt[12]
            + cmt_cmmt[13] + cmt_cmmt[14] + cmt_cmmt[15] <> ""
           then do with frame ecdb:
              display cmt_seq + 1 @ cmt_seq
              cmt_cmmt[9]  @ cmt_cmmt[1]
              cmt_cmmt[10] @ cmt_cmmt[2]
              cmt_cmmt[11] @ cmt_cmmt[3]
              cmt_cmmt[12] @ cmt_cmmt[4]
              cmt_cmmt[13] @ cmt_cmmt[5]
              cmt_cmmt[14] @ cmt_cmmt[6]
              cmt_cmmt[15] @ cmt_cmmt[7]
              with frame ecdb STREAM-IO /*GUI*/ .
              down.
           end.
           
/*GUI*/ {mfguichk.i  &warn=false} /*Replace mfrpchk*/

        end.
        hide frame ecdb.
         end.
         
/*GUI*/ {mfguichk.i  &warn=false} /*Replace mfrpchk*/

      end.

/*H0GF*/  hide frame form04.
/*H0GF*/  hide frame form05.
/*K1R7 /*K0M5*/ {wbrp04.i}*/
